home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_dscp.ps < prev    next >
Text File  |  2003-01-03  |  4KB  |  109 lines
  1. %  Copyright (C) 2000 Artifex Software Inc.   All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. %  Postscript interface routines to DSC parser
  8.  
  9. /send_orientation {            % <orientation> send_orientation -
  10.     % .parse_dsc_comments returns -1 for an Orientation key with an
  11.     % unrecognized value.
  12.   dup 0 ge {
  13.     << /Orientation 2 index >> setpagedevice
  14.   } if pop
  15. } bind def
  16.  
  17. % This dictionary contains local handlers for DSC comments.
  18. % See header in zdscpars.c for more information.
  19. % <dsc_dict> handler <dsc_dict>
  20. /DSCparseprocs mark
  21.    /Orientation { dup /Orientation get send_orientation } bind
  22.    /PageOrientation { dup /PageOrientation .knownget { send_orientation }
  23.               { dup /Orientation .knownget { send_orientation } if }
  24.               ifelse } bind
  25.    /Page { dup /Orientation .knownget { send_orientation } if } bind
  26.    /NOP { } bind
  27. .dicttomark readonly def
  28.  
  29. % This procedure is called whenever a DSC comment is found by the interpreter
  30. /do_parse_dsc false def
  31. /parse_dsc {                % <file> <DSC string> [<prev proc>]
  32.                     %   parse_dsc -
  33.     % Run any previously installed parser.
  34.   0 get dup null eq { pop } { 3 copy exec pop } ifelse
  35.  
  36.   do_parse_dsc {            % Check if this parser is enabled
  37.     currentglobal true setglobal    % Go to global VM, save old state
  38.     3 1 roll                % Put old VM state under <file> <string>
  39.     dsc_dict exch            % <VM state> <file> <dict> <string>
  40.     .parse_dsc_comments            % <VM state> <file> <dict> <DSC name>
  41.     4 -1 roll                % Get old VM state from under <file> <dict> <DSC name>
  42.     setglobal                % restore previous VM state
  43.     //DSCparseprocs exch .knownget {    % Check DSC name against local handler list
  44.       exec                % execute any local handler
  45.     } if
  46.   } if
  47.   pop pop                % remove file, dict
  48. } bind def
  49.  
  50.  
  51. % Check whether the currently installed parser is the one defined in this file.
  52. /.using_parse_dsc {            % - .using_parse_dsc <proc> <using?>
  53.   currentuserparams /ProcessDSCComment get
  54.   dup null eq { pop {{//null} //parse_dsc exec} } if
  55.   dup length 3 eq {
  56.     dup dup length 1 sub get /parse_dsc load eq
  57.   } {
  58.     false
  59.   } ifelse
  60. } bind def
  61.  
  62. % Establish a binding for dsc_dict.
  63. userdict /dsc_dict null put
  64.  
  65. % - dsc_init -
  66. /dsc_init {                % Initialize DSC parser
  67.   currentglobal true setglobal
  68.   /dsc_dict 50 dict store        % Size must be large enough for all DSC values
  69.   dsc_dict .initialize_dsc_parser
  70.   .using_parse_dsc {
  71.     % Already using this parser.
  72.     pop
  73.   } {
  74.     % Encapsulate the previous parser.  We know it is in global VM:
  75.     % allocate the new one in global VM as well.
  76.     1 array astore
  77.     /parse_dsc load /exec load 3 array astore cvx readonly
  78.     << /ProcessDSCComment 3 -1 roll >>
  79.     setuserparams
  80.   } ifelse
  81.   setglobal
  82.   /do_parse_dsc true def
  83. } bind def
  84.  
  85.  
  86. % Enable the DSC parser defined in this file.
  87. % - enable_dsc -
  88. /enable_dsc {
  89.   dsc_init
  90. } bind def
  91.  
  92. % Disable the DSC parser defined in this file.
  93. % - disable_dsc -
  94. /disable_dsc {
  95.     % There might be another parser installed: if so, restore it.
  96.     % (If it has encapsulated our parser, we can't.)
  97.   .using_parse_dsc {
  98.     % Restore the parser we encapsulated.
  99.     0 get 0 get
  100.     currentglobal true setglobal exch
  101.     << /ProcessDSCComment 3 -1 roll >>
  102.     exch setglobal setuserparams
  103.   } {
  104.     pop
  105.   } ifelse
  106.     % If we couldn't restore the old parser, at least disable ours.
  107.   /do_parse_dsc false def
  108. } bind def
  109.